10 REM --- (c) CRACKED BY ANDY GRIFO, PACLAND.CRACK ---
20 checksum = 0 : total = 222986 : crack = 630
30 START = 582 : FINISH = 657 : GOSUB 50
40 GOTO 90                      
50 FOR n = START TO FINISH STEP 2
60 READ a$:a = VAL("&h"+a$)
70 checksum = checksum + a
80 POKEW n,a:NEXT n:RETURN
90 PRINT "Your Checksum = ";checksum
100 IF checksum<>total THEN PRINT "Data error.":END
110 PRINT "Place PAC-LAND in DRIVE 0.Click On Screen"
120 PRINT "I will Intercept at The Point When You Loose a"
130 PRINT "Life,indicated by The Power Light Going ON or OFF"
140 INPUT "PRESS RETURN AND THE GAME WILL BOOT",Grifo$
150 CALL crack


160 DATA 397c,0250,00bc,4eec,000c,21fc,4eb8,025c
170 DATA 05a4,4ef8,0400,3d7c,0005,10c0,3d7c,0005
180 DATA 0014,0879,0001,00bf,e001,4a6e,0012,4e75
190 DATA 2c78,0004,207c,00fe,88c0,43f8,0100,303c
200 DATA 0145,12d8,51c8,fffc,4ef8,0116